1 POKE55,0:POKE56,56:CLR:POKE53281,0:POKE53280,0:PRINT"[147]"
2 DV=PEEK(186):IFDV<8THENDV=8
3 GOSUB60000:REM  GOTO7
4 SYS57812"CM/SCR/WP/UNP",DV,0:POKE780,0:POKE781,0:POKE782,195:SYS65493
5 SYS57812"PSB FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
7 UN=51456:HG=51459:WP=50944:SC=50176:CM=49920:POKE53272,31
8 GOSUB1000
9 CL$="                        "
10 SP$="                                     "
15 SYS50176,64,96,216
19 GOTO100
20 FORI=15TO24:POKE781,I:SYS59903:NEXT
21 RETURN
100 FORI=1TO8:READMN$(I):NEXT
102 DATA"          [211]ABU          "
103 DATA"         [193]NNIE!         "
104 DATA"    [196]OCTOR AND [206]URSE    "
105 DATA"      [193]NGRY [195]LIENT      "
106 DATA"    [205]ONKEY AND [205]ODEL    "
107 DATA"        [199]OLDFISH        "
108 DATA"       [194]IG [196]EALERS      "
109 DATA"      [204][207][193][196][211][212][193][210] [205]AN      "
110 B$(0)="[158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
112 B$(1)[178]"(null)                        (null)
114 B$(2)="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
115 ZZ[178]0:[151]198,0
116 ZZ[178]ZZ[170]1:[161]A$:[139]A$[178]""[175]ZZ[179]300[167]116
117 [158]HG
118 [153]"LOAD       (null) ATN (null) (null) ' (null)    LEN (null) (null) RIGHT$ (null)":MM[178]0
120 [151]214,4:[153]:[153][163]6)B$(0):[129]I[178]1[164]8:[153][163]6)B$(1):[130]
122 [153][163]6)B$(2)
124 [151]214,5:[153]"LIST":[129]I[178]1[164]8:[153][163]7)MN$(I):[130]
125 [153]"CONT (null)SE LEN(null)(null)(null) KEYSCONT TO MOVE HIGHLIGHT BAR
126 PRINT" [208]RESS [210][197][212][213][210][206][154] TO VIEW HIGHLIGHTED COMIC"
128 PRINT" [208]RESS [209][154] TO QUIT THE [195][207][205][201][216]
129 M[178]1
130 [151]214,4[170]M:[153]:[153][163]7)""MN$(M)"ON"
132 [161]A$:[139]A$[179][177]"ON"[175]A$[179][177]""[175]A$[179][177][199](13)[175]A$[179][177]"Q"[167]132
134 [139]A$[178][199](13)[167]170
136 [153][163]7)"LIST"MN$(M)
138 [139]A$[178]"ON"[167]M[178]M[171]1:[139]M[179]1[167]M[178]8
140 [139]A$[178]""[167]M[178]M[170]1:[139]M[177]8[167]M[178]1
141 [139]A$[178]"Q"[167]400
144 [137]130
170 [153]"LOAD    FOR(null)HE (null)IGHTY (null)(null)ATNSTR$(null)(null)ATN(null) LENAPTIONIZER"
172 [153]"CONT (null)RESS ASC1CONT TO TOGGLE BETWEEN THIS SCREEN
174 PRINT" AND THE COMIC."
176 PRINT" [208]RESS [198]3[154] TO PRINT THE COMIC ON A"
178 PRINT" 1525-EMULATING PRINTER.
180 [153]" (null)RESS ASC5CONT TO SAVE THE COMIC AS A STR$(null)(null)STR$(null)VAL
182 PRINT" PICTURE.
184 [153]" (null)RESS ASC7CONT TO RETURN TO THE (null)AIN (null)ENU.
186 PRINT" [208]RESS [195][154] TO ENTER A CAPTION FOR THE"
188 PRINT" COMIC.
190 [153]" (null)RESS (null)CONT TO PRINT OUT YOUR CAPTIONS."
191 [139]MM[167]200
192 [158]57812[199](M[170]48)[170]".SHP",DV,0:[151]780,0:[151]781,0:[151]782,100:[158]65493
194 [151]251,100:[151]252,64:[151]253,96
196 [158]UN
198 [158]HG:[151]53280,0:MM[178]1
200 [161]A$:[139]A$[178]""[167]200
201 O[178][194](53265)[175]32
202 [139]A$[178][199](133)[167][151]53270,[194](53270)[175]239:[158]HG:[137]200
204 [139]A$[178][199](134)[167][141]300:[137]210
206 [139]A$[178][199](135)[167][141]350:[137]200: [143] SAVE
208 [139]A$[179][177][199](136)[167]212
210 [139]O[167][158]HG
211 [137]118
212 [139]A$[179][177]"C"[167]250
213 [141]20:[139]O[167][158]HG
214 [151]214,15:[153]:[153]"OPEN VALNTER ONE OR TWO LINES FOR THE
216 PRINT" CAPTION, PRESSING [210][197][212][213][210][206][159] AT THE END
218 [153]" OF EACH LINE.
220 PRINT" ";:L9=37:GOSUB50000:C$(M,0)=Q9$+CHR$(13)
222 PRINT" ";:L9=37:GOSUB50000:C$(M,1)=Q9$+CHR$(19)
224 GOSUB20
226 POKE214,15:PRINT:PRINT"[159] [201]S THIS CORRECT? (Y[159]/N[159]/M[159]ENU)
228 [153]" "C$(M,0);
230 [153]" "C$(M,1)
232 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[175]A$[179][177]"M"[167]232
233 [141]20
234 [139]A$[178]"N"[167]214
236 [139]A$[178]"M"[167]118
238 [158]HG
240 [151]56334,[194](56334)[175]254:[151]1,[194](1)[175]251
242 [158]50182,1,23,"	STOP"[170]SP$[170][199](13):[158]50182,1,24,SP$[170][199](19)
243 [129]I[178]0[164]1:[158]50182,1,23[170]I,C$(M,I):[130]
244 [151]1,[194](1)[176]4:[151]56334,[194](56334)[176]1
246 [137]170
250 [139]A$[179][177]"P"[167]200
251 [139][194](53265)[175]32[167][158]HG
252 [159]4,4,7:[160]4:[139]ST[179][177][171]128[167]266
254 Q[178]Q[170]1
256 [141]20:[151]214,16:[153]
258 [153]" (null)URN YOUR PRINTER ON - PRESS A KEY"
260 [161]A$:[139]A$[178]""[167]260
262 [139]Q[177]1[167]118
264 [137]252
266 [141]20
268 [151]214,16:[153]:[153]"CONT (null)ET TOP OF FORM AND PRESS A KEY.
269 GETA$:IFA$=""THEN269
270 OPEN4,4,7
272 FORI=1TO8
274 PRINT#4,MN$(I):PRINT#4
276 FORJ=0TO1:IFLEN(C$(I,J))<2THEN280
278 PRINT#4,LEFT$(C$(I,J),LEN(C$(I,J))-1)
280 NEXT:PRINT#4
282 NEXT
284 CLOSE4:GOTO170
300 Q=0
301 OPEN4,4,7:CLOSE4:IFST<>-128THEN320
302 Q=Q+1:IFPEEK(53265)AND32THENSYSHG
304 GOSUB20:POKE214,16:PRINT
306 PRINT" [212]URN YOUR PRINTER ON - PRESS A KEY"
308 GETA$:IFA$=""THEN308
310 IFQ>1THEN118
312 GOTO301
320 GOSUB20:POKEWP+10,64:SYSWP
322 POKE53281,0:RETURN
350 IFPEEK(53265)AND32THENSYSHG
352 GOSUB20
354 POKE214,15:PRINT:PRINT"[159] [197]NTER A FILENAME FOR THE COMIC.
356 [153]"CONT   ----------------
358 PRINT"[145][145]   DD";:L9=14:GOSUB50000:F$="DD"+Q9$
360 POKE214,20:PRINT:PRINT"[159] [197]NTER THE DRIVE NUMBER: ";:L9=2:GOSUB50000:DN=VAL(Q9$)
361 IFQ9$=""THENGOSUB20:GOTO170
362 OPEN2,DN,2:CLOSE2:IFST<>-128THEN370
364 POKE781,21:SYS59903:GOTO360
370 SYSCM,96*256,128*256,4*256
372 SYSCM,64*256,96*256,32*256
373 SYSCM,128*256,92*256,4*256
374 SYS57812F$,DN:POKE193,0:POKE194,92:POKE174,0:POKE175,128:SYS62954
376 OPEN15,DN,15:INPUT#15,ER,ER$,A,A:CLOSE15
378 POKE214,22:PRINT:IFER=0THEN390
380 PRINT"   [150]"ER$" - PRESS A KEY"
382 GETA$:IFA$=""THEN382
384 GOTO200
390 PRINT"         [212]HE SAVE WAS A SUCCESS!"
392 FORT=1TO1000:NEXT
394 SYSCM,96*256,64*256,32*256
396 SYSCM,128*256,96*256,4*256
398 GOTO170
400 POKE214,22:PRINT:PRINTCL$:PRINTCL$"[145][145]"
405 PRINT"        [209]UIT[150] TO [204][207][193][196][211][212][193][210]? (Y[150]/N[150])"
410 GETA$:IFA$<>"Y"ANDA$<>"N"THEN410
420 IFA$="N"THEN118
430 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER%:CLOSE15
440 IFER%<>63THENPRINT"[147]":END
445 POKE646,PEEK(53281)
450 PRINT"[147]LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
460 PRINT"RUN"
470 POKE631,13:POKE632,13:POKE198,2:END
1000 SYS57812"COMIX.SHP",DV,0:POKE780,0:POKE781,0:POKE782,100:SYS65493
1010 POKE251,100:POKE252,64
1020 POKE253,96
1030 PRINT"[147]";:SYSUN:SYSHG:POKE53280,0
1050 RETURN
10000 OPEN15,8,15,"S0:WALT'S COMIX":CLOSE15:SAVE"WALT'S COMIX",8:END
50000 Q9$="":U9=53280:POKE198,0
50010 GETAA$
50020 POKE646,RND(1)*15+1:PRINT"[164][157]";:IFAA$=""THEN50010
50030 IFAA$=CHR$(13)THENPRINT" ":RETURN
50040 IF(AA$=CHR$(20)ANDLEN(Q9$))THENQ9$=LEFT$(Q9$,LEN(Q9$)-1):GOTO50090
50050 IFLEN(Q9$)>=L9THENT9%=PEEK(U9):POKEU9,1:POKEU9,T9%:GOTO50010
50060 IFAA$<" "OR(AA$>CHR$(127)ANDAA$<CHR$(160))ORAA$=CHR$(34)THEN50010
50070 Q9$=Q9$+AA$
50080 PRINT""AA$;:GOTO50010
50090 PRINT" [157][157] [157]";:GOTO50010
60000 PRINT"[147]":Z$=" [152]                                      ":POKE214,10:PRINT
60010 PRINT" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":FORI=0TO11:PRINTZ$:NEXT
60020 PRINT" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
60030 Z$(0)="[215] [193] [204] [212] ' [211]   [195] [207] [205] [201] [216]":Z$(1)="BY [215]ALT [200]ARNED"
60040 Z$(2)="[214]1.0 ([195]) 1992 BY [211]OFTDISK, [201]NC."+CHR$(13)
60050 Z$(3)="[212]HIS PROGRAM IS THE COPYRIGHTED WORK
60060 Z$(4)[178]"OF (null)(null)ASC(null)STR$RIGHT$(null)(null) (null)(null)PEEK(null)RIGHT$(null)LEFT$RIGHT$(null)CHR$.  RIGHT$T IS NOT"
60070 Z$(5)[178]"SHAREWARE OR IN THE PUBLIC DOMAIN."
60080 Z$(6)[178]"(null)EPORT ILLEGAL DISTRIBUTION OF":Z$(7)[178]"THIS PROGRAM BY CALLING"
60090 Z$(8)[178]"1-800-831-2694 OR 1-318-221-8718.":[151]214,12:[153]
60100 [129]I[178]0[164]8:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]